home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / scm / xscm.lha / xscm / xhello.scm < prev    next >
Encoding:
Text File  |  1992-08-29  |  1.0 KB  |  36 lines
  1. ; $Header: /home/campbell/Languages/Scheme/scm/x-scm/RCS/xhello.scm,v 1.1 1992/07/03 03:06:52 campbell Beta $
  2. ;
  3. ; "Hello, world" button sample program for xmscm
  4. ;
  5. ;  Author: Larry Campbell (campbell@redsox.bsw.com)
  6. ; 
  7. ;  Copyright 1992 by The Boston Software Works, Inc.
  8. ;  Permission to use for any purpose whatsoever granted, as long
  9. ;  as this copyright notice remains intact.  Please send bug fixes
  10. ;  or enhancements to the above email address.
  11. ; 
  12. (require (in-vicinity (library-vicinity) "x11.scm"))
  13. (require (in-vicinity (library-vicinity) "xt.scm"))
  14. (require (in-vicinity (library-vicinity) "xm.scm"))
  15.  
  16. (define top-level
  17.   (xt:initialize "hello" "Hello"))
  18.  
  19. (define button
  20.   (xt:create-managed-widget
  21.    "Hello" xm:push-button top-level))
  22.  
  23. (xt:add-callback
  24.  button xm:n-activate-callback
  25.  (let ((toggled #f))
  26.    (lambda (widget)
  27.      (if toggled
  28.      (quit)
  29.      (begin
  30.        (xt:set-values
  31.         widget xm:n-label-string (xm:string-create "Goodbye!"))
  32.        (set! toggled #t))))))
  33.  
  34. (xt:realize-widget top-level)
  35. (xt:main-loop)
  36.